Option Explicit
Sub E_Sample029()
    'ոE_Data03 / E_Data04u@g
    'o̷|ܧAҥHХƻsAӰ
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim i      As Long
    With Worksheets
        .Item("E_Data03").Copy After:=.Item(.Count)
        Set myRng1 = .Item(.Count).Range("A1").CurrentRegion    'Ƨǽd
        Set myRng2 = _
          .Item("E_Data04").Range("A1").CurrentRegion           'ۭqCd
    End With
    Application.AddCustomList myRng2    'sWۭqC
    i = Application.CustomListCount
    MsgBox "sWۭqC" & i & "C"
    With myRng1
        'wPƧǤk
        'H3欰ȡAϥηsWCӱƧ
        .Sort Key1:=.Cells(2, 3), Order1:=xlAscending, _
        Header:=xlYes, OrderCustom:=i + 1
    End With
    MsgBox "wϥΦۭqCӱƧ¾"
    Application.DeleteCustomList ListNum:=i     'RۭqC
    MsgBox "RϥΪ̩wqC"
    Set myRng1 = Nothing                        'ܼƪR
    Set myRng2 = Nothing
End Sub


